0 REM FGMZ
2 POKE53281,06:POKE53280,14:POKE808,239
4 B=6797:S$="         ":S$=S$+S$+S$+S$:DF=00:SYSB:POKE198,.:GOTO10
6 POKE198,.:WAIT198,1:GETA$:RETURN
8 POKE631,13:POKE632,13:POKE198,2
10 PRINT"[147]";:POKE4830,DF:SYS4789:K=(PEEK(2)/40)+1:IFK>1THEN14
12 SYS4692:GOSUB6:A=.:IFA$="Y"THENA=1
14 ONKGOTO16,18,20,24,24
16 POKE2,A:SYS6684:END
18 PRINT"[147][144][145][145]","-[204][207][193][196][201][206][199] [196][207][195][211]-1-[146]":DF=40:GOTO112
20 PRINT"[147][144][145][145]","-[204][207][193][196][201][206][199] [196][207][195][211]-2-[146]":DF=80:GOTO118
22 SYS4656:END
24 SYS58260:END
26 PL=PEEK(13824):PRINT"[145]"S$:GOTO28
28 C$="[145]":PRINT"[145][145]";S$:PRINT"[145]      [207][213][212][208][213][212] [212][207] [211][195][210][197][197][206] [207][210] [208][210][201][206][212][197][210]?      "
30 PRINT,"[208][210][197][211][211] '[198]1' [198][207][210] [211][195][210][197][197][206]":PRINTS$
32 PRINT,"[145][208][210][197][211][211] '[208]' [198][207][210] [208][210][201][206][212][197][210]":PRINTS$
34 PRINT,"[145][208][210][197][211][211] '[195]' [212][207] [195][193][206][195][197][204]"
36 SYSB:GOSUB104:POKE2,.:IFA$="[133]"THENPOKE7015,255:GOTO74
38 IFA$="P"THENPOKE7015,163:GOTO46
40 IFA$="C"THEN8
42 GOTO36
44 POKE7015,255:GOTO74
46 PRINT"[145][145][145][145][145][145]"S$:PRINT"[145][145]   [208][210][201][206][212]-[207][213][212] [215][201][204][204] [212][193][203][197] [193][194][207][213][212]";INT(PL/3)"[157] [211][200][197][197][212][211]  [144]"
48 PRINTS$:PRINT,"[157][145][145][204][197][198][212]/[210][201][199][200][212] [211][201][196][197] [204]/[210]?  [157]";:GOSUB6:IFA$="R"THENPOKE2,40:GOTO54
50 IFA$="C"THEN8
52 A$="[204]"
54 C$="[145]":PRINTA$:PRINT"    [208][210][197][211][211] [210][197][212][213][210][206][146] [215][200][197][206] [210][197][193][196][217] [212][207] [208][210][201][206][212]":PRINTS$
56 SYSB:GOSUB104:IFA$=CHR$(13)THEN62
58 IFA$="C"THEN8
60 GOTO56
62 OPEN15,4,15:CLOSE15:IFST=.THEN70
64 SYSB:PRINT"[147]","  [208][210][201][206][212][197][210] [206][207][212] [208][210][197][211][197][206][212]":PRINT,"[208][210][197][211][211] '[208]' [212][207][160][212][210][217] [193][206][217][215][193][217]"
66 PRINT,"-[193][206][217] [207][212][200][197][210] [203][197][217] [198][207][210] [205][197][206][213]-":GOSUB6:IFA$="P"THEN70
68 GOTO8
70 POKE251,22:POKE252,54:PRINT,"[211][200][207][213][204][196] [194][197] [208][210][201][206][212][201][206][199]":OPEN1,4,7:CMD1
72 FORX=1TOPL:SYS5968:NEXT:PRINT#1:CLOSE1:GOTO8
74 PRINT"[147][144]";:POKE650,128:POKE251,22:POKE252,54
76 SYS7004:P=1:P$="[208][193][199][197]":M$="[205][207][210][197]":R$="[144]"
78 R$="[144]":GOSUB128:GOSUB136:IFA$="S"THENPOKE53281,PEEK(53281)+1AND15
80 IFA$<>"[133]"THENIFA$<>"[134]"THENIFA$<>""THENIFJ=3THEN78
82 IFA$=""THEN8
84 IFP>.THENSYS6864:PRINT"";
86 IFA$="[133]"ORJ=2THENP=P+1:IFP<PL+1THENSYS7004
88 IFA$="[134]"ORJ=1THENP=P-1:IFP>0THENSYS6954
90 IFP=PLTHENSYSB:POKE198,.:GOTO96
92 IFP=.THEN8
94 GOTO78
96 P$="[204][193][211][212][144]":M$="[205][197][206][213][144]":R$="":GOSUB128
98 GOSUB136:IFA$="[133]"THEN8
100 IFA$="[134]"THENP$="[208][193][199][197]":M$="[205][207][210][197]":GOTO84
102 GOTO98
104 PRINTS$:FORX=.TO50:GETA$:IFA$>""THENPRINT"[145]";:GOTO110
106 NEXT:PRINT,"[145][208][204][197][193][211][197] [211][197][204][197][195][212][146]"C$:FORX=0TO400
108 GETA$:IFA$=""THENNEXT:GOTO104
110 X=999:NEXT:PRINTS$:PRINT"[145]";:RETURN
112 IFFI=.THENSYS6923:GOSUB126:IFE<19THENFI=1:FA=.
114 IFFITHEN26
116 GOTO122
118 IFFA=.THENSYS6931:GOSUB126:IFE<19THENFA=1:FI=.
120 IFFATHEN26
122 PRINTS$:PRINTS$:PRINT"[145][196][201][211][203] [197][210][210][207][210][146]"E;B$;E2;E3:PRINTS$:SYSB
124 PRINT"     -[208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [204][207][193][196] [205][197][206][213]-":GOSUB6:GOTO8
126 OPEN15,8,15:INPUT#15,E,B$,E2,E3:PRINT#15,"I0":CLOSE15:RETURN
128 Q$="":IFP>9THENQ$="[157]"
130 POKE214,20:PRINT"[144]":PRINT"  "R$"[176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][174]"
132 PRINT"  "R$"[221] "Q$P$P"[157] [221] [198]1 [198][207][210] "M$" [221] [198]3 [199][207] [194][193][195][203][221]"
134 PRINT"  "R$"[173][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN
136 PRINTTAB(13)"[144][145][145]           ":FORX=0TO60:NEXT:PRINTTAB(13)"[145][198]1 [198][207][210] "M$""
138 FORX=0TO600:GETA$:J=PEEK(56320)AND3:IFA$>""ORJ<3THENX=999
140 NEXT:RETURN
142 REM**